home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
smaltalk
/
gnu_st.lha
/
gnu_st
/
smalltalk-1.1.1
/
test
/
strings.st
< prev
Wrap
Text File
|
1991-09-12
|
518b
|
35 lines
"Test string operations"
"======================================================================
|
| Copyright (C) 1988, 1989 Steven B. Byrne.
| All rights reserved.
|
======================================================================"
!Object methodsFor: 'testing'!
strTest
| str |
str _ 'quem'.
str at: 1 put: $Q.
^str
!!
^'foo'!
^'foo on you'!
^'foo on
multiple line string
you'!
^'test embedded quote marks, can''t I do this?'!
^'FUBAR' at: 3!
^'quem' at: 1 put: $Q!
^nil strTest!